PROCEDURE IN PL/SQL TO PRINT 1-100 PRIME NUMBER OR YOU CAN CHANGE THE VALUE AS DESIRE FOR K

CREATE OR REPLACE PROCEDURE PRIME_NUM
DECLARE
M NUMBER(5);
N NUMBER(5);
K NUMBER(5);
BEGIN
M := 2;
N := 2;
K := 100;
LOOP
LOOP
EXIT WHEN MOD(M,N) = 0 OR M = N;
N := N + 1;
END LOOP;
IF M = N THEN
DBMS_OUTPUT.PUT_LINE ( M || 'IS PRIME');
END IF;
M := M + 1;
EXIT WHEN M > K;
END LOOP;
END;
END PROCEDURE;

Implementation of MD5 Algorithm in Java

java Program

import java.math.BigInteger;
import java.security.MessageDigest;
import java.security.NoSuchAlgorithmException;
public class JavaMD5Hash {
 public static void main(String[] args) {
  System.out.println("For null " + md5(""));
  System.out.println("For simple text "+ md5("This is my text"));
  System.out.println("For simple numbers " + md5("12345"));
 }
 public static String md5(String input) {
  String md5 = null;
  if(null == input) return null;
  try {
   //Create MessageDigest object for MD5
   MessageDigest digest = MessageDigest.getInstance("MD5");
   //Update input string in message digest
   digest.update(input.getBytes(), 0, input.length());
   //Converts message digest value in base 16 (hex) 
   md5 = new BigInteger(1, digest.digest()).toString(16);
  }
  catch (NoSuchAlgorithmException e) {
   e.printStackTrace();
  }
  return md5;
 }
}

Implementation of RSA Algorithm(Encryption and Decryption) in Java

JAVA Program

import java.math.BigInteger;



import java.util.Random;



import java.io.*;



public class RSA {



 private BigInteger p;



 private BigInteger q;



 private BigInteger N;



 private BigInteger phi;



 private BigInteger e;



 private BigInteger d;



 private int bitlength = 1024;



 private int blocksize = 256;



 //blocksize in byte



 private Random r;



 public RSA() {



  r = new Random();



  p = BigInteger.probablePrime(bitlength, r);



  q = BigInteger.probablePrime(bitlength, r);



  N = p.multiply(q);



  phi = p.subtract(BigInteger.ONE).multiply(q.subtract(BigInteger.ONE));



  e = BigInteger.probablePrime(bitlength/2, r);



  while (phi.gcd(e).compareTo(BigInteger.ONE) > 0 && e.compareTo(phi) < 0 ) {



   e.add(BigInteger.ONE);



  }



  d = e.modInverse(phi);



 }



 public RSA(BigInteger e, BigInteger d, BigInteger N) {



  this.e = e;



  this.d = d;



  this.N = N;



 }



 public static void main (String[] args) throws IOException {



  RSA rsa = new RSA();



  DataInputStream in=new DataInputStream(System.in);



  String teststring ;



  System.out.println("Enter the plain text:");



  teststring=in.readLine();



  System.out.println("Encrypting String: " + teststring);



  System.out.println("String in Bytes: " + bytesToString(teststring.getBytes()));



  // encrypt



  byte[] encrypted = rsa.encrypt(teststring.getBytes());



  System.out.println("Encrypted String in Bytes: " + bytesToString(encrypted));



  // decrypt



  byte[] decrypted = rsa.decrypt(encrypted);



  System.out.println("Decrypted String in Bytes: " +  bytesToString(decrypted));



  System.out.println("Decrypted String: " + new String(decrypted));



 }



 private static String bytesToString(byte[] encrypted) {



  String test = "";



  for (byte b : encrypted) {



   test += Byte.toString(b);



  }



  return test;



 }



 //Encrypt message



 public byte[] encrypt(byte[] message) {



  return (new BigInteger(message)).modPow(e, N).toByteArray();



 }



 // Decrypt message



 public byte[] decrypt(byte[] message) {



  return (new BigInteger(message)).modPow(d, N).toByteArray();



 }



}

Assignment 4 for print of vb.net

Assignmebnt No. – 04

Program on Innterface :-

Module IntefaceExamplekb

    Sub Main()

        Dim obj As New Class2

        obj.add()

        obj.pro()

        Console.ReadLine()

    End Sub

End Module

Interface in1

    Sub add()

End Interface

Interface in2

    Sub pro()

End Interface

Interface in3

    Inherits in1, in2

End Interface

Public Class Class2 : Implements in3

    Public Sub add() Implements in1.add

        Console.WriteLine("Add Function...")

    End Sub

    Public Sub pro() Implements in2.pro

        Console.WriteLine("Product Function...")

    End Sub

End Class

Output :-

Program on Exception Handling :-

Module ExecptionHandlingExamplekb

    Sub Main()

        Dim a, b, c As Integer

        Console.Write("Enter a and b :")

        a = CInt(Console.ReadLine)

        b = CInt(Console.ReadLine)

        Console.WriteLine("a = " + a.ToString())

        Console.WriteLine("b = " + b.ToString())

        Console.WriteLine()

        Try

            c = a \ b

            Console.WriteLine("c = " + c.ToString())

        Catch ex As Exception

            Console.WriteLine("Exception occured: " + ex.Message())

        End Try

        Console.ReadLine()

    End Sub

End Module

Output :-